﻿

Public NotInheritable Class RomData

    Shared Function Load() As RomData

    End Function

    Sub New()
        Units = New Dictionary(Of Integer, UnitType)
    End Sub

    Public ReadOnly Units As Dictionary(Of Integer, UnitType)


    Sub AddUnitType(ByVal Unit As UnitType)
        Units(Unit.Id) = Unit
    End Sub

    Function GetUnitType(ByVal spriteId As Integer) As UnitType
        Return Units(spriteId)
    End Function

End Class
